home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Visual Basic Source Code
/
Visual Basic Source Code.iso
/
vbsource
/
analog1a
/
analog2.frm
< prev
next >
Wrap
Text File
|
1999-06-29
|
3KB
|
127 lines
VERSION 5.00
Begin VB.Form Form1
Caption = "Novi analog clock"
ClientHeight = 4800
ClientLeft = 60
ClientTop = 345
ClientWidth = 6540
LinkTopic = "Form1"
MaxButton = 0 'False
ScaleHeight = 4800
ScaleWidth = 6540
StartUpPosition = 2 'CenterScreen
Begin VB.Timer Timer1
Left = 480
Top = 600
End
Begin VB.Line Line3
X1 = 960
X2 = 3120
Y1 = 4080
Y2 = 4080
End
Begin VB.Line Line2
X1 = 960
X2 = 3120
Y1 = 3840
Y2 = 3840
End
Begin VB.Line Line1
X1 = 960
X2 = 3120
Y1 = 3600
Y2 = 3600
End
Begin VB.Shape Shape1
BackStyle = 1 'Opaque
BorderColor = &H80000002&
Height = 1815
Left = 1560
Shape = 3 'Circle
Top = 1080
Width = 2295
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim h, m, s As Integer
Const toRad = 0.01745 'pi/180
Private Sub Form_Load()
Form1.Caption = Time
Line1.X1 = Form1.Width / 2
Line1.Y1 = Form1.Height / 2
Line2.X1 = Line1.X1
Line3.X1 = Line1.X1
Line2.Y1 = Line1.Y1
Line3.Y1 = Line1.Y1
Shape1.Shape = 3 'circle Type shape
Shape1.Width = 2100
Shape1.Height = 2100
Shape1.Left = Line1.X1 - Shape1.Width / 2
Shape1.Top = Line1.Y1 - Shape1.Height / 2
Timer1.Enabled = True
Timer1.Interval = 1000
s = 360 - ((Second(Time) - 15) * 6)
m = 360 - ((Minute(Time) - 15) * 6)
h = 360 - ((Hour(Time) * 5 - 15) * 6) - Minute(Time) / 2
Line1.X2 = (Line1.X1 + 1000 * (Cos(s * toRad)))
Line1.Y2 = (Line1.Y1 - 1000 * (Sin(s * toRad)))
Line2.X2 = (Line2.X1 + 900 * (Cos(m * toRad)))
Line2.Y2 = (Line2.Y1 - 900 * (Sin(m * toRad)))
Line3.X2 = (Line3.X1 + 700 * (Cos(h * toRad)))
Line3.Y2 = (Line3.Y1 - 700 * (Sin(h * toRad)))
End Sub
Private Sub Timer1_Timer()
Form1.Caption = Time
s = 360 - ((Second(Time) - 15) * 6)
m = 360 - ((Minute(Time) - 15) * 6)
h = 360 - ((Hour(Time) * 5 - 15) * 6) - Minute(Time) / 2
Line1.X2 = (Line1.X1 + 1000 * (Cos(s * toRad)))
Line1.Y2 = (Line1.Y1 - 1000 * (Sin(s * toRad)))
Line2.X2 = (Line2.X1 + 900 * (Cos(m * toRad)))
Line2.Y2 = (Line2.Y1 - 900 * (Sin(m * toRad)))
Line3.X2 = (Line3.X1 + 700 * (Cos(h * toRad)))
Line3.Y2 = (Line3.Y1 - 700 * (Sin(h * toRad)))
End Sub